Attribute VB_Name = "basVariables"
Option Explicit

'-------------------------------------------------------------------------------------------------------------------
'Updates
'Changed on         Changed by      Change details
'20060419           Johann          IBIR-006 change - new parameters added
'-------------------------------------------------------------------------------------------------------------------

Public XMLString                        As String
Public strFormType                      As String

'Directive Details
Public IntegrationID                    As String
Public KeyTaxType                       As String
Public dtDate                           As String
Public dtTime                           As String
Public sName                            As String
Public strUser                          As String
Public sEmailTo                         As String

Public nReqStatus                       As String
Public nComId                           As String
Public nBuId                            As String
Public nMsgId                           As String
Public nReferenceId                     As String
Public nReqSeqNum                       As String

Public nIncomeTaxReferenceNo           As String
Public sNoTaxRefNoRsn                  As String
Public sNoTaxRefNoText                 As String
Public nRSAID                          As String
Public sOtherID                        As String
Public sSurname                        As String
Public sFirstNames                     As String
Public sInitials                       As String
Public dtBirthDate                     As String
Public sHome1                          As String
Public sHome2                          As String
Public sHome3                          As String
Public sHome4                          As String
Public sHomeCode                       As String
Public sPost1                          As String
Public sPost2                          As String
Public sPost3                          As String
Public sPost4                          As String
Public sPostCode                       As String

Public sFormType                       As String

'New Fund Details
Public sFundType                       As String
Public sFundReason                     As String
Public nFundNumber                     As String
Public sLCBFundName                    As String
Public sFundContactPerson              As String
Public nDialingCode                    As String
Public nTelephoneNumber                As String
Public sFundPostAddressL1              As String
Public sFundPostAddressL2              As String
Public sFundPostAddressL3              As String
Public sFundPostAddressL4              As String
Public sFundPostalCode                 As String
Public nFundID                         As String
Public sFundPAYERefNumber              As String 'Johann(20071108): requested change

'New Employer Details
Public sEmployerPaye                   As String
Public sEmployerName                   As String
Public sEmpContactPerson               As String
Public sEmployerPost1                  As String
Public sEmployerPost2                  As String
Public sEmployerPost3                  As String
Public sEmployerPost4                  As String
Public sEmployerPostCode               As String
Public sEmployerPhys1                  As String
Public sEmployerPhys2                  As String
Public sEmployerPhys3                  As String
Public sEmployerPhys4                  As String
Public sEmployerPhysCode               As String
Public nEmpDialingCode                 As String
Public nEmpTelephoneNumber             As String
Public nEmpID                          As String

'FormB and FormAD
Public sDirectiveRequestReason         As String
Public sPolicyNumber                   As String
Public nEmployeeNo                     As String
Public dtDateFrom                      As String
Public dtDateTo                        As String

Public dtCommenceDate                  As String
Public dtAccrualDate                   As String
Public nTaxYear                        As String
Public nGrossLumpSum                   As String
Public nTotalProvidentContr            As String
Public nExcessPensionContr             As String

Public nTaxPayersAnnualIncome          As String

'FormAD----------------------------------------------------------------------
Public sDurationCalcId                 As String
Public sAvgIncomeYear1                 As String
Public sAvgIncomeValue1                As String
Public sAvgIncomeYear2                 As String
Public sAvgIncomeValue2                As String
Public sAvgIncomeYear3                 As String
Public sAvgIncomeValue3                As String
Public sAvgIncomeYear4                 As String
Public sAvgIncomeValue4                As String
Public sAvgIncomeYear5                 As String
Public sAvgIncomeValue5                As String
Public sDeathBenefitIncome             As String
Public GROSS_AMOUNT_TOTAL_BENEFIT               As String        'IBIR-006 field
Public DIVORCE_SPOUSE_AMOUNT                    As String        'IBIR-006 field
Public PURCHASED_TRANSFERRED_ANNUITY_INDICATOR  As String        'IBIR-006 field
Public PURCHASED_TRANSFERRED_ANNUITY_AMOUNT     As String        'IBIR-006 field
Public NAME_REGISTERED_INSURER                  As String        'IBIR-006 field
Public ANNUITY_POLICY_NO                        As String        'IBIR-006 field
Public FUND_PAYING_ANNUITY_INDICATOR            As String        'IBIR-006 field
Public REMAINING_ANNUITY_AMOUNT                 As String        'IBIR-006 field
'Fikile(20100629): Added the below IBIR-006 fields.
'Public UNCLAIMED_BENEF_PREV_TAXED               As String
Public EMAIL_ADDRESS_ADMINISTRATOR              As String
Public TAXED_TRANSF_NON_MEMB_SPOUSE             As String
Public DATE_DIVORCE_ORDER                       As String
'/FormAD---------------------------------------------------------------------


'FormB-----------------------------------------------------------------------
Public nProvidentIncPensionContr       As String
Public nSurrenderValue                 As String
Public sPublicSectorFundYN             As String
Public sTransferYN                     As String
Public nExistingTransferFundNumber     As String
Public sExistingTransferFundType       As String
Public nNewTransferFundNumber          As String
Public sTransferFundName               As String
Public sTransferFundType               As String
Public nTransferFundID                 As String
Public nAmountTransferred              As String
Public sValTransferFundType            As String
Public sGetTransferFundDetails         As String
Public sValidTransfer                  As String
Public EMPLOYMENT_START_DATE           As String        'IBIR-006 field
Public EMPLOYMENT_END_DATE             As String        'IBIR-006 field
'Fikile(25June2010):Added the below extra IBIR-006 fields
Public AMOUNT_PUBLIC_SECTOR_FUND       As String        'IBIR-006 field
Public DATE_AMOUNT_TRANSFER_PUBLIC_SECTOR_FUND As String 'IBIR-006 field
Public UNCLAIMED_BENEF_PREV_TAXED      As String        'IBIR-006 field
'Public EMAIL_ADDRESS_ADMINISTRATOR     As String        'IBIR-006 field
'Public TAXED_TRANSF_NON_MEMB_SPOUSE    As String        'IBIR-006 field
'Public DATE_DIVORCE_ORDER              As String        'IBIR-006 field
'/FormB----------------------------------------------------------------------


Public sFundTypeMeaning                As String
Public sFundCreateRsnCode              As String
Public sFundCreateRsnDesc              As String
Public sFundName                       As String
Public sContactPerson                  As String
Public sTelCode                        As String
Public sTelNumber                      As String
Public sFundPost1                      As String
Public sFundPost2                      As String
Public sFundPost3                      As String
Public sFundPost4                      As String
Public sFundPostCode                   As String
Public sFundExists                     As String
Public sValFundType                    As String
Public sGetFundDetails                 As String
Public sTransferFundExists             As String


Public sErrorMessage                   As String
Public strErrMessage                   As String
Public strTotalErrMsg                  As String
Public strErrMsgFund                   As String
Public strErrMsgTransferFund           As String
Public nTransferFundNumber             As String
Public addresses_equal                 As String

Public i                               As Integer
Public nValidateIRN                    As String
Public sValidRSAID                     As String
Public sValidBirthID                   As String
Public sValidBirth                     As String
Public sValidCommDate                  As String
Public sValidAccDate                   As String
Public sValidGross                     As String
Public sValidProv                      As String
Public sValidExcess                    As String
Public sValidProvPens                  As String
Public sValidSurr                      As String
Public sValidDateFrom                  As String
Public sValidDateTo                    As String
Public sValidAmtTrans                  As String
Public sValidAccrual                   As String

Public nComCode                        As String
Public nEmpFunID                       As String
Public nCompAllocNo                     As String
